﻿Public Class FormLuong

    Private Sub FormLuong_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npNam.Properties.MinValue = 1990
        npNam.Properties.MaxValue = DateTime.Now.Year
        npNam.Value = DateTime.Now.Year
        npThang.Value = DateTime.Now.Month

        Dim lBus As New BUS.LuongBUS()
        gcLuong.DataSource = lBus.TinhLuong(npThang.EditValue, npNam.EditValue)
    End Sub

    Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
        Dim lBus As New BUS.LuongBUS()
        gcLuong.DataSource = lBus.TinhLuong(npThang.EditValue, npNam.EditValue)
    End Sub
End Class